home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD014a.dsk / TREE.bas < prev   
BASIC Source File  |  2003-06-12  |  2KB  |  59 lines
  1. 20 D$ =  CHR$(4)
  2. 25  PRINT D$;"BLOAD DECORATIONS2"
  3. 30  POKE 232,01: POKE 233,96
  4. 50  HGR2 
  5. 60 H = 2
  6. 70  SCALE= 1
  7. 75  HCOLOR= 3
  8. 80  HPLOT 70,0 TO 70,100 TO 0,140: HPLOT 70,100 TO 279,100
  9. 85  HPLOT 220,20 TO 260,20 TO 260,60 TO 220,60 TO 220,20 TO 210,10 TO 270,10 TO 270,70 TO 210,70 TO 210,10: HPLOT 260,20 TO 270,10: HPLOT 260,60 TO 270,70: HPLOT 220,60 TO 210,70: HPLOT 240,20 TO 240,60: HPLOT 220,40 TO 260,40
  10. 90 HS = 3:CX = 99:CY = 120:H = 45:L = 100:T = 6:W = 20:S = 10: GOSUB 2000
  11. 100  FOR Y1 = 2 TO 140  STEP 2
  12. 150 Y2 = Y1
  13. 152 YD =  INT(Y1/2)
  14. 154  IF Y1 >100  THEN YD = 50 + INT((Y1 -100)/3)
  15. 156  IF Y1 >121  THEN YD = 57 - INT((Y1 -121)/3)
  16. 157  IF Y2 >133  THEN YD = 49 -(Y1 -133) *7
  17. 160 X1 = 140 -YD
  18. 170 X2 = 140 +YD
  19. 180  HCOLOR= 3
  20. 190  IF Y1/20 =  INT(Y1/20)  THEN  DRAW 2 AT X1 +8,Y1 -10: IF Y1 >21  THEN  DRAW 2 AT X2 -12,Y1 -20
  21. 191 H = H +1
  22. 192  IF H >6  THEN H = 2
  23. 193  HCOLOR= H
  24. 195  IF Y1/15 =  INT(Y1/15)  THEN  FOR A = 0 TO 1:: DRAW 1 AT 140 +A,Y1 -7: NEXT A
  25. 220  IF Y1/30 =  INT(Y1/30)  AND Y1 >70  THEN  FOR A = 0 TO 1: DRAW 3 AT 70 +.5 *X1 +A,Y1 -9: DRAW 3 AT 70 +.5 *X2 +A,Y2 -20: NEXT A
  26. 230  HCOLOR= 1
  27. 235  HPLOT X1,Y1 TO X2,Y2
  28. 250  NEXT Y1
  29. 300  HCOLOR= 5
  30. 310  FOR Y1 = 141 TO 180
  31. 320 Y2 = Y1
  32. 330 X1 = 135:X2 = 145
  33. 335  IF  INT(Y1/2) = Y1/2  THEN X1 = 136:X2 = 144
  34. 350  HPLOT X1,Y1 TO X2,Y2
  35. 360  NEXT Y1
  36. 500 HS = 6
  37. 520 CX = 100
  38. 521 CY = 170
  39. 522 H = 15
  40. 523 L = 20
  41. 524 T = 6
  42. 525 W = 18
  43. 526 S = 10
  44. 530  GOSUB 2000
  45. 535 CX = 154:H = 22:L = 6:CY = 160: GOSUB 2000
  46. 540 CX = 40:H = 60:L = 20:CY = 120:HS = 2: GOSUB 2000
  47. 1999  PRINT D$;"RUN CHRISTMAS CAROLS"
  48. 2000  HCOLOR= HS
  49. 2020  FOR Z = 0 TO L
  50. 2030  HPLOT CX +Z,CY +1 +(T/L) *Z TO CX +Z,CY -1 +(T/L) *Z +H
  51. 2032  HPLOT CX +Z,CY +(T/L) *Z TO CX +Z +W,CY +(T/L) *Z -S
  52. 2040  NEXT 
  53. 2041  FOR Z = 0 TO H
  54. 2042  HPLOT CX +L,CY +T +Z TO CX +L +W,CY -S +T +Z
  55. 2043  NEXT 
  56. 2050  HCOLOR= 0
  57. 2055  HPLOT CX,CY TO CX,CY +H TO CX +L,CY +H +T TO CX +L,CY +T TO CX,CY TO CX +W,CY -S TO CX +L +W,CY -S +T
  58. 2060  HPLOT CX +L,CY +T TO CX +L +W,CY -S +T TO CX +L +W,CY -S +T +H TO CX +L,CY +H +T
  59. 2070  RETURN